Google
 
Trailing-Edge - PDP-10 Archives - 6.1_emacs_manuals_1er - emacs/toc.:ej
There are no other files named toc.:ej in the archive.
PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   Y,8G/N]*o~yzI& Setup TOC LibraryGenerate Table of Contents~DIRECTORY~~DOC~ & Setup TOC Library$~DOC~ Generate Table of Contents~DOC~ ~Filename~~Filename~

~INVERT~{1,fName: 
fqB"efsDFn1UB'
[0[1[2[3[4[5[6[7[8[9[A[C
fsBConsu4
qTOC Pseudoopsu5
qTOC Typeoutu8
qTOC Page Field Widthu3
1u9
-u0
-u1
0l.u2
0uC
j1a-

"e%9w-uC'
<:fb5"l0l
:fbTable of Contents"l
q1"n
@ftKilling old Table of Contents
<0l.u1
c:s

:
q1,.k
:fbTable of Contents;>
0u00u1
q9-1u9
.u2''
"#q0"l.-q2:"l0u0''
x6l
q4[..og6
q8"l-t'
q0"eiDot1u0'
q3,q9\i
]..o''
:s

;%9>
q2j
q4[..o
zj-2d
q0"eiDot'
jff&1"n"noSave It''
"#qTOC Use First Line"noSave It''
k:sDot+1"e
0lkl
iDotj'
"#k'
!Save It!
]..o
0u0:i10u2:i3
qTOC Separatorsu6
qTOC Subsection Field Widthu7
qTOC Indent per Level:\u8
qTOC Starting Indentation+2:\u9
:i*7+(8*q0)+9[7
qTOC Width-qTOC Page Field Width[TOC Width
qTOC Indent per Levelu8
q8,32i-q8fx*[TOC Indent per Level
q4[..o
<:fb5
0k@f 	<k
:l-@f 	>k
0l<:fb6;
@f 	k
fkc
-@f 	k
-fkc>
0l<:fb	; >
0l<:fb ;@f k>
q0u9
0l0u8
<:fb6;%8>
q0-q8u8
q8<]3]2]1q0-1u0>
0l
q0<
fq1f~1"e
.+fq1jfb6
fkf"nu80;''
0l
]3]2]1q0-1u0>
:s
+1"e-lfx8
iPage 0l:fx9
:i*DME found duplicate, misplaced or empty line, 9:
8fg
oNext Line'
q0"n
q8c
q9-q0"g
.u8g3.u9
-:s.
q8,.x3q8,q9k
%2:\u8
:i33.8''
"#
qTOC Starting Indentation+1,%2:\u3'
qTOC Indent per Levelu9
q0"e:fb6"l
fkcfku8
0x*[1i
-li;g3i. l
qTOC Typeout"n-t'
1[2:i*93.1[3%0'
"#0l:x*[1
i;g3i. 
1[2:i*93.1[3%0
oCommon Code''
"#0k
:fb6wfku8fkc'
<-q8c
:fb6;
fkcfkua
q1[10@x1i
-l-q8dqau8
i;g3
q0m7-(0@f)f"g,32il
qTOC Typeout"n-t'
1[2:i*93.1[3%0>
q1[10l@:x1
-q8d
i;g3
q0m7-(0@f)f"g,32i
1[2:i*93.1[3%0
!Common Code!
qTOC Widthu8
0l
.+q8,(:l.)f:j
:k
q8-(0@f)u8
q8&1"ni '
q8/2<i .>
:lk
qTOC Typeout"n0tt'
!Next Line!
:s
;>
q0<]3]2]1>
j<:sDot;>
<-:s
;;0a"dl0;'>
0l."n0uC'
jgTOC Header.u8
0u9<-:s
;%9>b,q8k
i

	gTOC Self Subtitle Pseudoop
i	Table of Contents


qTOC Page Length Maximum-2-q9u2
qTOC Page Length Minimum-2-q9u3
1u5
<gTOC Header
i~Eoh~
-s~Name~
B
s~Eoh~fkd
.u1
q2l.-z;
q1jq3l
.u6999u7
q2-q3<
.u8fb.
.-q8-q7:"g
.-q8u7.u6'l>
q6j0li

	gTOC Self Subtitle Pseudoop
i	Table of Contents (page 
%5\i)

.u1>
qTOC Page Field Widthu1
qTOC Width+q1u3
qC"lq5-1u5'
j0u7
<:sDot;fkd%7>
q7"n
0l.u6
<<:l.-q6-q3"e
0a"d
q1rs 
fkc\u2
-q1dq1,q2+q5\''
l.u6

,1a-

@;>
.-z;
q9+2l
.u6>'
zji
]..o
.-b"n
g4'
"#g4
1a-

"n
i

'
jd'
q4fsBKill
no..qTOC Header"l
:i*;		     Table of Contents for ~Name~
;
;				  Section		      Page
;
;
m.cTOC HeaderThis is the text to put at the beginning of the table
of contents.  ~Name~ marks the spot where the Name goes.'
:fo..qTOC Separators"l
:i* --  -- m.cTOC SeparatorsThese separate section names in subtitles.'
:fo..qTOC Pseudoops"l
:i*SUBTTL$TOCm.cTOC PseudoopsA line with one of these is considered
a subtitle line'
:fo..qTOC Width"l
66m.cTOC WidthTotal length of lines used in table of contents.'
:fo..qTOC Indent per Level"l
4m.cTOC Indent per Levelamount indented for each level of subsectionism.'
:fo..qTOC Page Field Width"l
4m.cTOC Page Field WidthWidth of field page number sits in.'
:fo..qTOC Starting Indentation"l
4m.cTOC Starting IndentationEverything is indented by at least this much.'
:fo..qTOC Subsection Field Width"l
:i**2+4m.cTOC Subsection Field WidthExpression relating depth of sectioning
to width of field subsection numbers go into.'
:fo..qTOC Use First Line"l
0m.cTOC Use First LineDefault value of switch which determines whether or
not the first subtitle encountered goes into the table of contents.'
:fo..qTOC Typeout"l
0m.cTOC TypeoutDetermines whether or not TOC types as it processes.
0 => no typeout, >0 => typeout of finished TOC, <0 => typeout on pass which
collects subtitle lines and on finished TOC.'
:fo..qTOC Page Length Minimum"l
36m.cTOC Page Length MinimumMinimum length of a TOC page.'
:fo..qTOC Page Length Maximum"l
55m.cTOC Page Length MaximumMaximum length of a TOC page.'
:fo..qTOC Self Subtitle Pseudoop"l
:i*SUBTTLM.CTOC Self Subtitle PseudoopSubtitle pseudoop TOC uses when putting
in its Table of Contents subtitles.'TOCXThis is a library of macros for generating of table of contents
for a MACRO programdC Makes table of contents for a Macro program.
Thumbs through file in buffer, looking at subtitles, building a new table of
contents which it inserts in place of the old one (or at dot in the buffer if
there was no old one).  String arg is name to use in Table of Contents header,
numeric arg is <>0 for use first subtitle, 0 for don't.  The Table of Contents
name defaults to the name of the file you are editing.  Has many tweakable
variables, all called TOC something (do a List VariablesTOC), all of which
have doc strings (do a View VariableTOC foo).  It may be convenient to set
these with a Local Modes: list after the END statement.  Note: INSERTS ITS OWN
SUBTITLE and adds its length in pages to all its page numbers&S sets up all of the TOC variables5Generate Table of Contents
& Setup TOC Library
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2